home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
www
/
amitrix
/
swedish31.lha
/
Installera
< prev
next >
Wrap
Text File
|
1998-01-21
|
4KB
|
195 lines
;
; $VER: Installera 1.0 (17.1.98)
;
; Installationsskript för den svenska översättningen av AWeb.
;
; Magnus Holmgren (lear@algonet.se)
;
(set #language "Svenska")
(set #welcome
(cat
"\n\nVälkommen till Installeraren.\n\n"
"Det här programmet låter dig installera den svenska "
"översättningen av AWeb och AWebs manual i din Amiga.\n\n"
"Observera att en vanlig installation av AWeb förväntas "
"finnas, då enbart de ändrade filerna kommer att "
"installeras.\n\n"
)
)
(set #help-no-aweb-assign
(cat
"Kunde inte hitta lådan där AWeb är installerad. Normalt "
"sett skall AWeb finnas i \"AWeb3:\", men någon sådan "
"volym eller tilldelning kunde inte hittas.\n\n"
)
)
(set #where-aweb "Var god välj den låda där AWeb är installerad.")
(set #help-where-aweb
(cat
"Var god välj den låda där AWeb är installerad. I denna "
"låda bör åminstone filen AWeb samt lådorna \"docs\" och "
"\"extras\" finnas."
)
)
(set #same-dir
(cat
"\n"
"Du verkar ha valt att installera översättningen i samma "
"låda som den redan finns i. Vill du fortsätta ändå?"
)
)
(set #help-same-dir
(cat
"Det verkar som om den låda du har valt att installera "
"översättningen i är samma låda som den redan finns i. "
"Att installera översättningen över sig själv är inte "
"meningsfullt (och det kommer inte heller att fungera).\n\n"
"Har du verkligen valt den låda AWeb finns i, har du "
"förmodligen redan installerat översättningen där den "
"skall vara. Avbryt i så fall denna installation."
)
)
(set #really-aweb
(cat
"\n"
"Lådan \"%s\" verkar inte innehålla en korrekt "
"AWeb-installation. Vill du fortsätta ändå?"
)
)
(set #help-really-aweb
(cat
"En korrekt AWeb-installation bör innehålla filen AWeb samt "
"lådorna \"docs\" och \"extras\" (samt ett antal andra filer "
"och lådor). Någon eller några av ovanstående fanns inte i "
"den låda som du valt som destination. Detta kan tyda på att "
"lådan inte innehåller en AWeb-installation."
)
)
(set #continue "Fortsätt")
(set #cancel "Avbryt")
(set #aborted "\nInstalltionen avbruten av användaren.")
(set #makedir "Skapar lådan \"%s\"... ")
(set #copy-program "Kopierar programöversättningen...")
(set #copy-manual "Kopierar manualen samt tillhörande filer...")
(message #welcome)
(welcome)
(set #dest "AWeb3:")
(if (<> 2 (exists #dest (noreq)))
(set #dest "AWeb:")
)
(if (<> 2 (exists #dest (noreq)))
(set #dest "AWeb-II:")
)
(if (<> 2 (exists #dest (noreq)))
(set #dest "Sys:")
)
(if (AND (= #dest "Sys:") (= @user-level 1))
(set #help #help-no-aweb-assign)
(set #help "")
)
(if (OR (= #dest "Sys:") (>= @user-level 2))
(set #dest
(askdir
(prompt #where-aweb)
(help #help #help-where-aweb "\n\n" @askdir-help)
(default #dest)
)
)
)
(if (= (expandpath #dest) (expandpath ""))
(if
(NOT (askbool
(prompt #same-dir)
(help #help-same-dir)
(choices #continue #cancel)
(default 0)
))
(
(exit #aborted (quiet))
)
)
)
(if (NOT (OR
(= 2 (exists (tackon #dest "docs")))
(= 2 (exists (tackon #dest "extras")))
(= 1 (exists (tackon #dest "AWeb"))) ))
(if
(NOT (askbool
(prompt (#really-aweb #dest))
(help #help-really-aweb)
(choices #continue #cancel)
(default 0)
))
(
(exit #aborted (quiet))
)
)
)
; Maybe makedir can create several levels (in V43 only?)?
; Oh well, never hurts to be on the safe side.
(if (= 0 (exists (tackon #dest "Catalogs")))
(makedir (tackon #dest "Catalogs")
(prompt (#makedir "Catalogs"))
)
)
(set #cat-source (tackon "Catalogs" #language))
(set #cat-dest (tackon (tackon #dest "Catalogs") #language))
(copylib
(prompt #copy-program)
(source (tackon #cat-source "aweb.catalog"))
(dest #cat-dest)
)
(copylib
(prompt #copy-program)
(source (tackon #cat-source "awebcfg.catalog"))
(dest #cat-dest)
)
(copyfiles
(prompt #copy-manual)
(source "docs")
(dest (tackon #dest "docs"))
(all)
)
(copyfiles
(prompt #copy-manual)
(source "extras")
(dest (tackon #dest "extras"))
(all)
)
(set @default-dest #dest)
(exit)